<!-- This comment will put IE 6, 7 and 8 in quirks mode -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<title>include/shark/LinAlg/BLAS/kernels/default/mgemm.hpp Source File</title>
<script type="text/javaScript" src="search/search.js"></script>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<script src="https://polyfill.io/v3/polyfill.min.js?features=es6"></script>
<script id="MathJax-script" async src="https://cdn.jsdelivr.net/npm/mathjax@3.0.1/es5/tex-mml-chtml.js"></script>
<script src="../../mlstyle.js"></script>
<link href="../css/besser.css" rel="stylesheet" type="text/css"/>
</head>
<!-- pretty cool: each body gets an id tag which is the basename of the web page  -->
<!--              and allows for page-specific CSS. this is client-side scripted, -->
<!--              so the id will not yet show up in the served source code -->
<script type="text/javascript">
    jQuery(document).ready(function () {
        var url = jQuery(location).attr('href');
        var pname = url.substr(url.lastIndexOf("/")+1, url.lastIndexOf(".")-url.lastIndexOf("/")-1);
        jQuery('#this_url').html('<strong>' + pname + '</strong>');
        jQuery('body').attr('id', pname);
    });
</script>
<body>
    <div id="shark_old">
        <div id="wrap">
            <div id="header">
                <div id="site-name"><a href="../../sphinx_pages/build/html/index.html">Shark machine learning library</a></div>
                <ul id="nav">
                    <li >
                        <a href="../../sphinx_pages/build/html/rest_sources/installation.html">Installation</a>
                    </li>
		    <li >
                        <a href="../../sphinx_pages/build/html/rest_sources/tutorials/tutorials.html">Tutorials</a>
                    </li>
		    <li >
                        <a href="../../sphinx_pages/build/html/rest_sources/benchmark.html">Benchmarks</a>
                    </li>
                    <li class="active">
                        <a href="classes.html">Documentation</a>
                        <ul>
                            <li class="first"></li>
                            <li><a href="../../sphinx_pages/build/html/rest_sources/quickref/quickref.html">Quick references</a></li>
                            <li><a href="classes.html">Class list</a></li>
                            <li class="last"><a href="group__shark__globals.html">Global functions</a></li>
                        </ul>
                    </li>
                </ul>
            </div>
        </div>
    </div>
<div id="doxywrapper">
<!--
    <div id="global_doxytitle">Doxygen<br>Documentation:</div>
-->
    <div id="navrow_wrapper">
<!-- Generated by Doxygen 1.9.8 -->
<div id="nav-path" class="navpath">
  <ul>
<li class="navelem"><a class="el" href="dir_d44c64559bbebec7f509842c48db8b23.html">include</a></li><li class="navelem"><a class="el" href="dir_9d0c4981f10d03078bcfd5c74fe41ce8.html">shark</a></li><li class="navelem"><a class="el" href="dir_dd3f668d951792dcec83cb1f625ad30c.html">LinAlg</a></li><li class="navelem"><a class="el" href="dir_c5d13ad5e321ff5ee54f52b8a41def8a.html">BLAS</a></li><li class="navelem"><a class="el" href="dir_4c58f0aa30e78d0b4c636abf7730e59a.html">kernels</a></li><li class="navelem"><a class="el" href="dir_a4293084a98737c753288f66c3d116b5.html">default</a></li>  </ul>
</div>
</div><!-- top -->
<div class="header">
  <div class="headertitle"><div class="title">mgemm.hpp</div></div>
</div><!--header-->
<div class="contents">
<a href="mgemm_8hpp.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a id="l00001" name="l00001"></a><span class="lineno">    1</span><span class="comment">/*!</span></div>
<div class="line"><a id="l00002" name="l00002"></a><span class="lineno">    2</span><span class="comment"> *</span></div>
<div class="line"><a id="l00003" name="l00003"></a><span class="lineno">    3</span><span class="comment"> *</span></div>
<div class="line"><a id="l00004" name="l00004"></a><span class="lineno">    4</span><span class="comment"> * \brief       The mgemm macro kernel used for implementing gemm</span></div>
<div class="line"><a id="l00005" name="l00005"></a><span class="lineno">    5</span><span class="comment"> *</span></div>
<div class="line"><a id="l00006" name="l00006"></a><span class="lineno">    6</span><span class="comment"> * \author      O. Krause</span></div>
<div class="line"><a id="l00007" name="l00007"></a><span class="lineno">    7</span><span class="comment"> * \date        2016</span></div>
<div class="line"><a id="l00008" name="l00008"></a><span class="lineno">    8</span><span class="comment"> *</span></div>
<div class="line"><a id="l00009" name="l00009"></a><span class="lineno">    9</span><span class="comment"> *</span></div>
<div class="line"><a id="l00010" name="l00010"></a><span class="lineno">   10</span><span class="comment"> * \par Copyright 1995-2015 Shark Development Team</span></div>
<div class="line"><a id="l00011" name="l00011"></a><span class="lineno">   11</span><span class="comment"> *</span></div>
<div class="line"><a id="l00012" name="l00012"></a><span class="lineno">   12</span><span class="comment"> * &lt;BR&gt;&lt;HR&gt;</span></div>
<div class="line"><a id="l00013" name="l00013"></a><span class="lineno">   13</span><span class="comment"> * This file is part of Shark.</span></div>
<div class="line"><a id="l00014" name="l00014"></a><span class="lineno">   14</span><span class="comment"> * &lt;http://image.diku.dk/shark/&gt;</span></div>
<div class="line"><a id="l00015" name="l00015"></a><span class="lineno">   15</span><span class="comment"> *</span></div>
<div class="line"><a id="l00016" name="l00016"></a><span class="lineno">   16</span><span class="comment"> * Shark is free software: you can redistribute it and/or modify</span></div>
<div class="line"><a id="l00017" name="l00017"></a><span class="lineno">   17</span><span class="comment"> * it under the terms of the GNU Lesser General Public License as published</span></div>
<div class="line"><a id="l00018" name="l00018"></a><span class="lineno">   18</span><span class="comment"> * by the Free Software Foundation, either version 3 of the License, or</span></div>
<div class="line"><a id="l00019" name="l00019"></a><span class="lineno">   19</span><span class="comment"> * (at your option) any later version.</span></div>
<div class="line"><a id="l00020" name="l00020"></a><span class="lineno">   20</span><span class="comment"> *</span></div>
<div class="line"><a id="l00021" name="l00021"></a><span class="lineno">   21</span><span class="comment"> * Shark is distributed in the hope that it will be useful,</span></div>
<div class="line"><a id="l00022" name="l00022"></a><span class="lineno">   22</span><span class="comment"> * but WITHOUT ANY WARRANTY; without even the implied warranty of</span></div>
<div class="line"><a id="l00023" name="l00023"></a><span class="lineno">   23</span><span class="comment"> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the</span></div>
<div class="line"><a id="l00024" name="l00024"></a><span class="lineno">   24</span><span class="comment"> * GNU Lesser General Public License for more details.</span></div>
<div class="line"><a id="l00025" name="l00025"></a><span class="lineno">   25</span><span class="comment"> *</span></div>
<div class="line"><a id="l00026" name="l00026"></a><span class="lineno">   26</span><span class="comment"> * You should have received a copy of the GNU Lesser General Public License</span></div>
<div class="line"><a id="l00027" name="l00027"></a><span class="lineno">   27</span><span class="comment"> * along with Shark.  If not, see &lt;http://www.gnu.org/licenses/&gt;.</span></div>
<div class="line"><a id="l00028" name="l00028"></a><span class="lineno">   28</span><span class="comment"> *</span></div>
<div class="line"><a id="l00029" name="l00029"></a><span class="lineno">   29</span><span class="comment"> */</span></div>
<div class="line"><a id="l00030" name="l00030"></a><span class="lineno">   30</span> </div>
<div class="line"><a id="l00031" name="l00031"></a><span class="lineno">   31</span><span class="preprocessor">#ifndef REMORA_KERNELS_DEFAULT_MGEMM_HPP</span></div>
<div class="line"><a id="l00032" name="l00032"></a><span class="lineno">   32</span><span class="preprocessor">#define REMORA_KERNELS_DEFAULT_MGEMM_HPP</span></div>
<div class="line"><a id="l00033" name="l00033"></a><span class="lineno">   33</span> </div>
<div class="line"><a id="l00034" name="l00034"></a><span class="lineno">   34</span><span class="preprocessor">#include &quot;<a class="code" href="simd_8hpp.html">simd.hpp</a>&quot;</span></div>
<div class="line"><a id="l00035" name="l00035"></a><span class="lineno">   35</span><span class="preprocessor">#include &lt;algorithm&gt;</span><span class="comment">//std::fill</span></div>
<div class="line"><a id="l00036" name="l00036"></a><span class="lineno">   36</span> </div>
<div class="line"><a id="l00037" name="l00037"></a><span class="lineno">   37</span> </div>
<div class="line"><a id="l00038" name="l00038"></a><span class="lineno">   38</span><span class="keyword">namespace </span>remora{<span class="keyword">namespace </span>bindings {</div>
<div class="line"><a id="l00039" name="l00039"></a><span class="lineno">   39</span> </div>
<div class="line"><a id="l00040" name="l00040"></a><span class="lineno">   40</span><span class="comment">//  Block-GEMM implementation based on boost.ublas</span></div>
<div class="line"><a id="l00041" name="l00041"></a><span class="lineno">   41</span><span class="comment">//  written by:</span></div>
<div class="line"><a id="l00042" name="l00042"></a><span class="lineno">   42</span><span class="comment">//  Copyright (c) 2016</span></div>
<div class="line"><a id="l00043" name="l00043"></a><span class="lineno">   43</span><span class="comment">//  Michael Lehn, Imre Palik</span></div>
<div class="line"><a id="l00044" name="l00044"></a><span class="lineno">   44</span><span class="comment">//</span></div>
<div class="line"><a id="l00045" name="l00045"></a><span class="lineno">   45</span><span class="comment">//  Distributed under the Boost Software License, Version 1.0. (See</span></div>
<div class="line"><a id="l00046" name="l00046"></a><span class="lineno">   46</span><span class="comment">//  accompanying file LICENSE_1_0.txt or copy at</span></div>
<div class="line"><a id="l00047" name="l00047"></a><span class="lineno">   47</span><span class="comment">//  http://www.boost.org/LICENSE_1_0.txt)</span></div>
<div class="line"><a id="l00048" name="l00048"></a><span class="lineno">   48</span> </div>
<div class="line"><a id="l00049" name="l00049"></a><span class="lineno">   49</span><span class="comment">//-- Micro Kernel For Dense operations----------------------------------------------------------</span></div>
<div class="line"><a id="l00050" name="l00050"></a><span class="lineno">   50</span><span class="keyword">template</span> &lt;<span class="keyword">class</span> block_size, <span class="keyword">class</span> T, <span class="keyword">class</span> TC&gt;</div>
<div class="line"><a id="l00051" name="l00051"></a><span class="lineno">   51</span><span class="keywordtype">void</span> ugemm(</div>
<div class="line"><a id="l00052" name="l00052"></a><span class="lineno">   52</span>    std::size_t kc, TC alpha, T <span class="keyword">const</span>* A, T <span class="keyword">const</span>* B,</div>
<div class="line"><a id="l00053" name="l00053"></a><span class="lineno">   53</span>    TC* C, std::size_t stride1, std::size_t stride2</div>
<div class="line"><a id="l00054" name="l00054"></a><span class="lineno">   54</span>){</div>
<div class="line"><a id="l00055" name="l00055"></a><span class="lineno">   55</span>    BOOST_ALIGN_ASSUME_ALIGNED(A, block_size::block::align);</div>
<div class="line"><a id="l00056" name="l00056"></a><span class="lineno">   56</span>    BOOST_ALIGN_ASSUME_ALIGNED(B, block_size::block::align);</div>
<div class="line"><a id="l00057" name="l00057"></a><span class="lineno">   57</span> </div>
<div class="line"><a id="l00058" name="l00058"></a><span class="lineno">   58</span>    <span class="keyword">typedef</span> <span class="keyword">typename</span> block_size::block::type vx;</div>
<div class="line"><a id="l00059" name="l00059"></a><span class="lineno">   59</span>    <span class="keyword">static</span> <span class="keyword">const</span> std::size_t vector_length = block_size::block::vector_elements;</div>
<div class="line"><a id="l00060" name="l00060"></a><span class="lineno">   60</span>    <span class="keyword">static</span> <span class="keyword">const</span> std::size_t vecNR = block_size::nr/vector_length;</div>
<div class="line"><a id="l00061" name="l00061"></a><span class="lineno">   61</span><span class="preprocessor">#ifdef REMORA_USE_SIMD</span></div>
<div class="line"><a id="l00062" name="l00062"></a><span class="lineno">   62</span>    vx P[block_size::mr * vecNR] = {};</div>
<div class="line"><a id="l00063" name="l00063"></a><span class="lineno">   63</span><span class="preprocessor">#else</span></div>
<div class="line"><a id="l00064" name="l00064"></a><span class="lineno">   64</span>    <span class="keyword">typename</span> std::aligned_storage&lt;<span class="keyword">sizeof</span>(vx[block_size::mr*vecNR]),block_size::block::align&gt;::type Pa;</div>
<div class="line"><a id="l00065" name="l00065"></a><span class="lineno">   65</span>    T* P = <span class="keyword">reinterpret_cast&lt;</span>T*<span class="keyword">&gt;</span>(&amp;Pa);</div>
<div class="line"><a id="l00066" name="l00066"></a><span class="lineno">   66</span>    <span class="keywordflow">for</span> (std::size_t c = 0; c &lt; block_size::mr*vecNR; c++)</div>
<div class="line"><a id="l00067" name="l00067"></a><span class="lineno">   67</span>        P[c] = 0;</div>
<div class="line"><a id="l00068" name="l00068"></a><span class="lineno">   68</span><span class="preprocessor">#endif</span></div>
<div class="line"><a id="l00069" name="l00069"></a><span class="lineno">   69</span> </div>
<div class="line"><a id="l00070" name="l00070"></a><span class="lineno">   70</span> </div>
<div class="line"><a id="l00071" name="l00071"></a><span class="lineno">   71</span>    <span class="comment">// perform the matrix-matrix product as outer product</span></div>
<div class="line"><a id="l00072" name="l00072"></a><span class="lineno">   72</span>    <span class="comment">// of rows of A and B</span></div>
<div class="line"><a id="l00073" name="l00073"></a><span class="lineno">   73</span>    vx <span class="keyword">const</span>* b = (vx <span class="keyword">const</span>*)B;</div>
<div class="line"><a id="l00074" name="l00074"></a><span class="lineno">   74</span>    <span class="keywordflow">for</span> (std::size_t l=0; l&lt;kc; ++l) {</div>
<div class="line"><a id="l00075" name="l00075"></a><span class="lineno">   75</span>        <span class="keywordflow">for</span> (std::size_t i=0; i&lt;block_size::mr; ++i) {</div>
<div class="line"><a id="l00076" name="l00076"></a><span class="lineno">   76</span>            <span class="keywordflow">for</span> (std::size_t j=0; j&lt;vecNR; ++j) {</div>
<div class="line"><a id="l00077" name="l00077"></a><span class="lineno">   77</span>                P[i * vecNR+j] += A[i]*b[j];</div>
<div class="line"><a id="l00078" name="l00078"></a><span class="lineno">   78</span>            }</div>
<div class="line"><a id="l00079" name="l00079"></a><span class="lineno">   79</span>        }</div>
<div class="line"><a id="l00080" name="l00080"></a><span class="lineno">   80</span>        A += block_size::mr;</div>
<div class="line"><a id="l00081" name="l00081"></a><span class="lineno">   81</span>        b += vecNR;</div>
<div class="line"><a id="l00082" name="l00082"></a><span class="lineno">   82</span>    }</div>
<div class="line"><a id="l00083" name="l00083"></a><span class="lineno">   83</span>    <span class="comment">//multiply with alpha if necessary</span></div>
<div class="line"><a id="l00084" name="l00084"></a><span class="lineno">   84</span>    <span class="keywordflow">if</span> (alpha!=TC(1)) {</div>
<div class="line"><a id="l00085" name="l00085"></a><span class="lineno">   85</span>        <span class="keywordflow">for</span> (std::size_t i=0; i&lt;block_size::mr; ++i) {</div>
<div class="line"><a id="l00086" name="l00086"></a><span class="lineno">   86</span>            <span class="keywordflow">for</span> (std::size_t j=0; j&lt; vecNR; ++j) {</div>
<div class="line"><a id="l00087" name="l00087"></a><span class="lineno">   87</span>                P[i*vecNR+j] *= alpha;</div>
<div class="line"><a id="l00088" name="l00088"></a><span class="lineno">   88</span>            }</div>
<div class="line"><a id="l00089" name="l00089"></a><span class="lineno">   89</span>        }</div>
<div class="line"><a id="l00090" name="l00090"></a><span class="lineno">   90</span>    }</div>
<div class="line"><a id="l00091" name="l00091"></a><span class="lineno">   91</span> </div>
<div class="line"><a id="l00092" name="l00092"></a><span class="lineno">   92</span>    <span class="comment">//add result to C</span></div>
<div class="line"><a id="l00093" name="l00093"></a><span class="lineno">   93</span>    T <span class="keyword">const</span>* p = (T <span class="keyword">const</span>*) P;</div>
<div class="line"><a id="l00094" name="l00094"></a><span class="lineno">   94</span>    <span class="keywordflow">for</span> (std::size_t i=0; i&lt;block_size::mr; ++i) {</div>
<div class="line"><a id="l00095" name="l00095"></a><span class="lineno">   95</span>        <span class="keywordflow">for</span> (std::size_t j=0; j&lt;block_size::nr; ++j) {</div>
<div class="line"><a id="l00096" name="l00096"></a><span class="lineno">   96</span>            C[i * stride1+j * stride2] += p[i*block_size::nr+j];</div>
<div class="line"><a id="l00097" name="l00097"></a><span class="lineno">   97</span>        }</div>
<div class="line"><a id="l00098" name="l00098"></a><span class="lineno">   98</span>    }</div>
<div class="line"><a id="l00099" name="l00099"></a><span class="lineno">   99</span>}</div>
<div class="line"><a id="l00100" name="l00100"></a><span class="lineno">  100</span> </div>
<div class="line"><a id="l00101" name="l00101"></a><span class="lineno">  101</span> </div>
<div class="line"><a id="l00102" name="l00102"></a><span class="lineno">  102</span><span class="comment">// Macro Kernel for two densly packed Blocks</span></div>
<div class="line"><a id="l00103" name="l00103"></a><span class="lineno">  103</span><span class="keyword">template</span> &lt;<span class="keyword">class</span> T, <span class="keyword">class</span> TC, <span class="keyword">class</span> block_size&gt;</div>
<div class="line"><a id="l00104" name="l00104"></a><span class="lineno">  104</span><span class="keywordtype">void</span> mgemm(</div>
<div class="line"><a id="l00105" name="l00105"></a><span class="lineno">  105</span>    std::size_t mc, std::size_t nc, std::size_t kc, TC alpha,</div>
<div class="line"><a id="l00106" name="l00106"></a><span class="lineno">  106</span>    T <span class="keyword">const</span>* A, T <span class="keyword">const</span>* B, TC *C,</div>
<div class="line"><a id="l00107" name="l00107"></a><span class="lineno">  107</span>    std::size_t stride1, std::size_t stride2, block_size</div>
<div class="line"><a id="l00108" name="l00108"></a><span class="lineno">  108</span>){</div>
<div class="line"><a id="l00109" name="l00109"></a><span class="lineno">  109</span>    <span class="keyword">static</span> std::size_t <span class="keyword">const</span> MR = block_size::mr;</div>
<div class="line"><a id="l00110" name="l00110"></a><span class="lineno">  110</span>    <span class="keyword">static</span> std::size_t <span class="keyword">const</span> NR = block_size::nr;</div>
<div class="line"><a id="l00111" name="l00111"></a><span class="lineno">  111</span>    std::size_t <span class="keyword">const</span> mp  = (mc+MR-1) / MR;</div>
<div class="line"><a id="l00112" name="l00112"></a><span class="lineno">  112</span>    std::size_t <span class="keyword">const</span> np  = (nc+NR-1) / NR;</div>
<div class="line"><a id="l00113" name="l00113"></a><span class="lineno">  113</span> </div>
<div class="line"><a id="l00114" name="l00114"></a><span class="lineno">  114</span>    <span class="keywordflow">for</span> (std::size_t j=0; j&lt;np; ++j) {</div>
<div class="line"><a id="l00115" name="l00115"></a><span class="lineno">  115</span>        std::size_t <span class="keyword">const</span> nr = std::min(NR, nc - j*NR);</div>
<div class="line"><a id="l00116" name="l00116"></a><span class="lineno">  116</span> </div>
<div class="line"><a id="l00117" name="l00117"></a><span class="lineno">  117</span>        <span class="keywordflow">for</span> (std::size_t i=0; i&lt;mp; ++i) {</div>
<div class="line"><a id="l00118" name="l00118"></a><span class="lineno">  118</span>            std::size_t <span class="keyword">const</span> mr = std::min(MR, mc - i*MR);</div>
<div class="line"><a id="l00119" name="l00119"></a><span class="lineno">  119</span>            <span class="keyword">auto</span> CBlockStart = C+i*MR*stride1+j*NR*stride2;</div>
<div class="line"><a id="l00120" name="l00120"></a><span class="lineno">  120</span>            <span class="keywordflow">if</span> (mr==MR &amp;&amp; nr==NR) {</div>
<div class="line"><a id="l00121" name="l00121"></a><span class="lineno">  121</span>                ugemm&lt;block_size&gt;(</div>
<div class="line"><a id="l00122" name="l00122"></a><span class="lineno">  122</span>                    kc, alpha,</div>
<div class="line"><a id="l00123" name="l00123"></a><span class="lineno">  123</span>                    &amp;A[i*kc*MR], &amp;B[j*kc*NR],</div>
<div class="line"><a id="l00124" name="l00124"></a><span class="lineno">  124</span>                    CBlockStart, stride1, stride2</div>
<div class="line"><a id="l00125" name="l00125"></a><span class="lineno">  125</span>                );</div>
<div class="line"><a id="l00126" name="l00126"></a><span class="lineno">  126</span>            } <span class="keywordflow">else</span> {</div>
<div class="line"><a id="l00127" name="l00127"></a><span class="lineno">  127</span>                TC CTempBlock[MR*NR];</div>
<div class="line"><a id="l00128" name="l00128"></a><span class="lineno">  128</span>                std::fill_n(CTempBlock, MR*NR, T(0));</div>
<div class="line"><a id="l00129" name="l00129"></a><span class="lineno">  129</span>                ugemm&lt;block_size&gt;(</div>
<div class="line"><a id="l00130" name="l00130"></a><span class="lineno">  130</span>                    kc, alpha,</div>
<div class="line"><a id="l00131" name="l00131"></a><span class="lineno">  131</span>                    &amp;A[i*kc*MR], &amp;B[j*kc*NR],</div>
<div class="line"><a id="l00132" name="l00132"></a><span class="lineno">  132</span>                    CTempBlock, NR, 1</div>
<div class="line"><a id="l00133" name="l00133"></a><span class="lineno">  133</span>                );</div>
<div class="line"><a id="l00134" name="l00134"></a><span class="lineno">  134</span> </div>
<div class="line"><a id="l00135" name="l00135"></a><span class="lineno">  135</span>                <span class="keywordflow">for</span> (std::size_t i0=0; i0&lt;mr; ++i0){</div>
<div class="line"><a id="l00136" name="l00136"></a><span class="lineno">  136</span>                    <span class="keywordflow">for</span> (std::size_t j0=0; j0&lt;nr; ++j0) {</div>
<div class="line"><a id="l00137" name="l00137"></a><span class="lineno">  137</span>                        CBlockStart[i0*stride1+j0 * stride2] += CTempBlock[i0*NR+j0];</div>
<div class="line"><a id="l00138" name="l00138"></a><span class="lineno">  138</span>                    }</div>
<div class="line"><a id="l00139" name="l00139"></a><span class="lineno">  139</span>                }</div>
<div class="line"><a id="l00140" name="l00140"></a><span class="lineno">  140</span>            }</div>
<div class="line"><a id="l00141" name="l00141"></a><span class="lineno">  141</span>        }</div>
<div class="line"><a id="l00142" name="l00142"></a><span class="lineno">  142</span>    }</div>
<div class="line"><a id="l00143" name="l00143"></a><span class="lineno">  143</span>}</div>
<div class="line"><a id="l00144" name="l00144"></a><span class="lineno">  144</span> </div>
<div class="line"><a id="l00145" name="l00145"></a><span class="lineno">  145</span> </div>
<div class="line"><a id="l00146" name="l00146"></a><span class="lineno">  146</span><span class="comment">//-- Packing blocks ------------------------------------------------------------</span></div>
<div class="line"><a id="l00147" name="l00147"></a><span class="lineno">  147</span><span class="keyword">template</span> &lt;<span class="keyword">class</span> E, <span class="keyword">class</span> T, <span class="keyword">class</span> block_size&gt;</div>
<div class="line"><a id="l00148" name="l00148"></a><span class="lineno">  148</span><span class="keywordtype">void</span> pack_A_dense(matrix_expression&lt;E, cpu_tag&gt; <span class="keyword">const</span>&amp; A, T* p, block_size)</div>
<div class="line"><a id="l00149" name="l00149"></a><span class="lineno">  149</span>{</div>
<div class="line"><a id="l00150" name="l00150"></a><span class="lineno">  150</span>    BOOST_ALIGN_ASSUME_ALIGNED(p, block_size::block::align);</div>
<div class="line"><a id="l00151" name="l00151"></a><span class="lineno">  151</span> </div>
<div class="line"><a id="l00152" name="l00152"></a><span class="lineno">  152</span>    std::size_t <span class="keyword">const</span> mc = A().size1();</div>
<div class="line"><a id="l00153" name="l00153"></a><span class="lineno">  153</span>    std::size_t <span class="keyword">const</span> kc = A().size2();</div>
<div class="line"><a id="l00154" name="l00154"></a><span class="lineno">  154</span>    <span class="keyword">static</span> std::size_t <span class="keyword">const</span> MR = block_size::mr;</div>
<div class="line"><a id="l00155" name="l00155"></a><span class="lineno">  155</span>    <span class="keyword">const</span> std::size_t mp = (mc+MR-1) / MR;</div>
<div class="line"><a id="l00156" name="l00156"></a><span class="lineno">  156</span> </div>
<div class="line"><a id="l00157" name="l00157"></a><span class="lineno">  157</span>    std::size_t nu = 0;</div>
<div class="line"><a id="l00158" name="l00158"></a><span class="lineno">  158</span>    <span class="keywordflow">for</span> (std::size_t l=0; l&lt;mp; ++l) {</div>
<div class="line"><a id="l00159" name="l00159"></a><span class="lineno">  159</span>        <span class="keywordflow">for</span> (std::size_t j=0; j&lt;kc; ++j) {</div>
<div class="line"><a id="l00160" name="l00160"></a><span class="lineno">  160</span>            <span class="keywordflow">for</span> (std::size_t i = l*MR; i &lt; l*MR + MR; ++i,++nu) {</div>
<div class="line"><a id="l00161" name="l00161"></a><span class="lineno">  161</span>                p[nu] = (i&lt;mc) ? A()(i,j) : T(0);</div>
<div class="line"><a id="l00162" name="l00162"></a><span class="lineno">  162</span>            }</div>
<div class="line"><a id="l00163" name="l00163"></a><span class="lineno">  163</span>        }</div>
<div class="line"><a id="l00164" name="l00164"></a><span class="lineno">  164</span>    }</div>
<div class="line"><a id="l00165" name="l00165"></a><span class="lineno">  165</span>}</div>
<div class="line"><a id="l00166" name="l00166"></a><span class="lineno">  166</span> </div>
<div class="line"><a id="l00167" name="l00167"></a><span class="lineno">  167</span> </div>
<div class="line"><a id="l00168" name="l00168"></a><span class="lineno">  168</span><span class="keyword">template</span> &lt;<span class="keyword">class</span> E, <span class="keyword">class</span> T, <span class="keyword">class</span> block_size&gt;</div>
<div class="line"><a id="l00169" name="l00169"></a><span class="lineno">  169</span><span class="keywordtype">void</span> pack_B_dense(matrix_expression&lt;E, cpu_tag&gt; <span class="keyword">const</span>&amp; B, T* p, block_size)</div>
<div class="line"><a id="l00170" name="l00170"></a><span class="lineno">  170</span>{</div>
<div class="line"><a id="l00171" name="l00171"></a><span class="lineno">  171</span>    BOOST_ALIGN_ASSUME_ALIGNED(p, block_size::block::align);</div>
<div class="line"><a id="l00172" name="l00172"></a><span class="lineno">  172</span> </div>
<div class="line"><a id="l00173" name="l00173"></a><span class="lineno">  173</span>    std::size_t <span class="keyword">const</span> kc = B ().size1();</div>
<div class="line"><a id="l00174" name="l00174"></a><span class="lineno">  174</span>    std::size_t <span class="keyword">const</span> nc = B ().size2();</div>
<div class="line"><a id="l00175" name="l00175"></a><span class="lineno">  175</span>    <span class="keyword">static</span> std::size_t <span class="keyword">const</span> NR = block_size::nr;</div>
<div class="line"><a id="l00176" name="l00176"></a><span class="lineno">  176</span>    std::size_t <span class="keyword">const</span> np = (nc+NR-1) / NR;</div>
<div class="line"><a id="l00177" name="l00177"></a><span class="lineno">  177</span> </div>
<div class="line"><a id="l00178" name="l00178"></a><span class="lineno">  178</span>    std::size_t nu = 0;</div>
<div class="line"><a id="l00179" name="l00179"></a><span class="lineno">  179</span>        <span class="keywordflow">for</span> (std::size_t l=0; l&lt;np; ++l) {</div>
<div class="line"><a id="l00180" name="l00180"></a><span class="lineno">  180</span>        <span class="keywordflow">for</span> (std::size_t i=0; i&lt;kc; ++i) {</div>
<div class="line"><a id="l00181" name="l00181"></a><span class="lineno">  181</span>            <span class="keywordflow">for</span> (std::size_t j = l*NR; j &lt; l*NR + NR; ++j,++nu){</div>
<div class="line"><a id="l00182" name="l00182"></a><span class="lineno">  182</span>                p[nu] = (j&lt;nc) ? B()(i,j) : T(0);</div>
<div class="line"><a id="l00183" name="l00183"></a><span class="lineno">  183</span>            }</div>
<div class="line"><a id="l00184" name="l00184"></a><span class="lineno">  184</span>        }</div>
<div class="line"><a id="l00185" name="l00185"></a><span class="lineno">  185</span>        }</div>
<div class="line"><a id="l00186" name="l00186"></a><span class="lineno">  186</span>}</div>
<div class="line"><a id="l00187" name="l00187"></a><span class="lineno">  187</span> </div>
<div class="line"><a id="l00188" name="l00188"></a><span class="lineno">  188</span>}}</div>
<div class="line"><a id="l00189" name="l00189"></a><span class="lineno">  189</span> </div>
<div class="line"><a id="l00190" name="l00190"></a><span class="lineno">  190</span><span class="preprocessor">#endif</span></div>
</div><!-- fragment --></div><!-- contents -->
</div>
</body>
</html>
